home *** CD-ROM | disk | FTP | other *** search
/ Dark Star 3 / Dark_Star_03_1995_-_de_Side_B.d64 / <<<<< ende <<<<< (.txt) next >
Commodore BASIC  |  2023-02-26  |  844b  |  23 lines
  1. 5 forc=1to15:poke646,c:poke53280,.:poke53281,.:
  2. 10 printchr$(147)"nanu![146]       [145][145][145][145]was ist denn das jetzt?";:nextc
  3. 20 s=54272
  4. 30 :poke54272+x,1
  5. 40 pokes+24,15:pokes+5,10*16+1:pokes+6,15* 8+2:
  6. 50 for x=255to-0step-2:
  7. 60 pokes+1,x:pokes+4,xand17+17:pokes+21,x
  8. 70 v=54276:poke54276+y,2
  9. 75 pokev+5,15*16+1:pokev+6,10*8+1
  10. 80 pokev+24,15:pokev+2,129:pokev+2,202:fory=40to-0step-8 :pokes+4,17
  11. 90 nexty,x:pokes+24,0:pokev+24,0
  12. 100 ti$="000003":wait161,1:forf=1to15:poke646,f:printchr$(147)
  13. 110 print" **** **** *  * *    *  * **** ****  ** ";
  14. 111 print" *    *    *  * *    *  * *    *     ** ";
  15. 112 print" **** *    **** *    *  * **** ****  ** ";
  16. 113 print"    * *    *  * *    *  *    *    *     ";
  17. 114 print" **** **** *  * **** **** **** ****  ** ";:nextf:poke56325,1
  18. 120 fora=1to299:nexta:printchr$(147):poke53272,23:
  19. 125 forb=0to1:forc=0to39:
  20. 130 poke1024+c+b*40,192:nextc,b:poke53272,21:
  21. 140 print"  tschuess![151]                   lukian";
  22. 145 poke56325,58:
  23.